On the classification of metric hypercomplex group 
alternative-elastic algebras for n=8. 



K.V. Andreev 

In this article, the clarification to Note 4 [5] for n=8 is considered. In this 
\ connection, answers to the following questions are given. 

t-H ! 

^ ■ 1. How to classify the metric hypercomplex orthogonal group alternative-elastic 

kjrj algebras for n=8? 

3: 

. 2. How to associate the metric hypercomplex orthogonal group alternative-elastic 

! algebra to the symmetric controlling spin-tensor for n=8? 

<n: 

3. How technically to construct the symmetric controlling spin-tensor for n=8? 

Let product of elements of hypercomplex group alternative- elastic algebra A [5j,[lJ,[7j, 
[2], [3] over the field K and the vector space M 8 be defined as: 1). 3!c = ab; 2). 
3!e : ae = ea = a; 3). Va ^ 3!a _1 : aa -1 = a _1 a = e; 4). Va, b : (aa)b — a(ab) = 
b{aa) — (6a)a; 5). Va, b : a{ba) = (a6)a; 6). Va, 6, c : a{b + c) = ab + ac, (b + c)a = 
ba + ca. Construct one of such the algebras. Suppose that the vector space IR 8 is 
. equipped with the metric (i, j, A, B, ... = 1, 8) 

>: 

VO. _ 8 8 

VO ■ < a,b > e := ^(ab + ba), a = a±e + ^ a r e r , a = a±e — ^2 a r e r . (1) 

r=2 r=2 

00 " Then according to the equation (5) [5J 

o: 

2: VtJ k :=V2 m A \ CAV k DB 6 CD , (2) 

• i-H ■ where 77^-* are the structural constants of the algebra, r]i AB are the connecting 

operators: a solution of the Clifford equation (4) [5J. According to the equation 
£ 1 (48) [5] 

e CD : = (e f D + (e a f D , (3) 

according to the equation (46) [5J 

4 4 

= (^ := -^(Va) lm WxYV mXC Vr DY = ^(VaW^XYV^V^ 

(4) 

according to the equation (44) [5] 

%) CD = P CD , (5) 

where e CD is the metric spin-tensor on the spinor space, and for n = 8, N = 8. Let 
the connecting operators for n=8 be given according to [U eq. (439), p. 66(eng), eq. 
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(439), p. 177(88) (rus)] and the matrixes of the metric tensors have the form |U eq. 
(438), p. 65(eng), eq. (438), p. 177(88) (rus)] 



V 2 i2 

V 13 

V 68 

V 1 37 
^48 



1 

f 


^ 2 34 = 


1 


^ 4 12 = 


1 i 
+ V^' 


V A 3A = 




V 2 56 = 




?7 4 78 = 


1 i 
+ v^' 


?7 4 56 = 


1 I 


V 5 23 = 




7 

^ 14 = 


~V2> 


7 

V 23 = 




'/ 58 — 


j 


7 

'/ 67 — 


1 

V2> 


7 

'/ 58 — 


i 


?7 24 — 




V & 13 = 




V 8 24 = 




„6 

V 57 — 




V 8 68 = 


1 


V 8 57 = 


-j — L 


?/51 = 


4-JL 


V 3 15 = 


I 


V 3 51 = 




77*62 = 




V 3 26 = 


i 


V 3 62 = 




^73 = 




V 3 37 = 


i 

V2 } 


V 3 73 = 


+73' 


^84 = 


+73' 


V 3 48 = 


i 


V 3 84 = 



l_ 

i_ 

1 

1_ 

V2' 

+ — 



(6) 



+ 



>/2' 

1 

V2- 



We need to define the transformation 

1 
71 



E E 
-%E iE 



(7) 



of the spinor basis, where E is the identity matrix 4 x 4. In the new basis, the matrix 
of the metric spin-tensor will have the diagonal form with <C +1 ^> on the main 
diagonal. The matrix of the involution will have the same form. With the help of 
such the connecting operators, the double covering Spin(8,~R)/ ± 1 = SO^IR) is 
described as 

S/rjj AB = rji CD Sc A Sd B , Sc A Sd B sab = ^cd-, Sc A Sd B £ab = £cd, (8) 



according to Corollary 8.3 [3j p. 44 (eng), p. 174(51) (rus)]. If Sj keeps the algebra 
identity then S C A = S C A = ~S C A - 

Example 1. Octonion . 



Table 1: The canonical octonion multiplication table. 



* 


eo 


ei 


e2 


e3 


e 4 


es 


ee 


e 7 


eo 


eo 


ei 


e2 


e3 


e 4 


es 


e6 


e 7 


ei 


ei 


-eo 


e3 


-e 2 


es 


-e 4 


-e 7 


ee 




e2 


-e3 


-e 


ei 


e6 


e7 


-e 4 


-es 




e3 


e2 


-ei 


-eo 


e 7 


-e6 


es 


-e 4 


e 4 


e4 


-es 


-ee 


-e 7 


-eo 


ei 


e2 


e3 




es 


e 4 


-e 7 


ee 


-ei 


-eo 


-e3 


e2 




ee 


e7 


e4 


-es 


-e2 


e3 


-eo 


-ei 


pi 


P7 


-ee 


es 


e 4 


-e3 


-e 2 


ei 


-eo 



T/ien m the new basis, the matrix of the symmetric spin-tensor 9 CD (and Qcd-, 
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because the matrix of Ecd is the identity one) has the form 



(9) 



/20000000\ 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 

yoooooooo/ 

In the transition to the subgroup keeping the octonion identity, the dimension reduces 
on 7, in the transition to the subgroup keeping the symmetric spin-tensor, the dimension 
reduces on 7 else then the dimension of Aut(A s ) is equal to %p — 7 — 7 = 14. Thus, 
we obtain the Lie group G 2 . Passing to the infinitesimal transformations according 
to Section 10 [3, p. 52 (eng), pp. 183-184(60-61) (rus)], we obtain 



rn A rpij AB 

+ C Vj ViCB- 



The preservation of the metrics means that 

Tqa = —Tac, T( 



'j 



-T- 



8*7 



The dimension of the antisymmetrical space is equal to ,, 
to the subgroup keeping the octonion identity, we obtain 



r)i AB T AB 



0, rfT Vj 



0. 



(10) 
(11) 

28. In the transition 
(12) 



In the new basis, 



r -t 12 


-T 34 


+ T 56 


+ T 78 


= 0, 


+T 13 


— -?24 


-T 57 


+ T 68 


= 0, 


-T u 


— ^23 


+ T 58 


+ T 67 


= 0, 


+T 15 


+ T 26 


+ T 37 


+ T 48 


= 0, 


+T 16 


-T 25 


— Tss 


+ T 47 


= 0, 


-Til 


— ^28 


+ T 35 


+ T 46 


= 0, 


k +Tl8 


— ^27 


+ T m 


— ^45 


= 0. 



(13) 



This reduces the dimension on 7. In the transition to the subgroup keeping the 
symmetric spin-tensor, we obtain 



rp C n I rp C n 
J- A VCB + -LB VAC 



0. 



(14) 



In the new basis, 

T 12 = 0, T 13 = 0, T 14 = 0, T 15 = 0, T 16 = 0, T 17 = 0, T 18 = 0. (15) 

Because the symmetric spin-tensor has the single significant eigenvalue, this reduces 
the dimension on 7 else. Thus, we obtain the Lie algebra g 2 whose the dimension is 
equal to 14- The system l[T3\) with the relations [T5]) coincides with the one /8, eq. 
(13), p. 313] up to an orthogonal transformation. 
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Example 2. The generating octonion algebra (for e\) . 

Table 2: The multiplication table of the generating octonion algebra. 



* 


eo 


ei 


&i 


e3 


e 4 


es 


ee 


e7 


eo 


eo 


ei 


e2 


e3 


e 4 


es 


ee 


e 7 


ei 


ei 


-eo 


e3 


-e 2 


es 


-e 4 


-e 7 


ee 


(-2 


e 2 


-e3 


-eo 


ei 












e3 


e2 


-ei 


-eo 










e 4 


e 4 


-e 5 






-eo 


ei 








es 


e 4 






-ei 


-eo 








e ( ; 


e7 










-eo 


-ei 


e7 


e7 


-ee 










ei 


-eo 



Then in the new basis, the matrix of the symmetric spin-tensor 9 has the form 



( 1 




















o\ 





1 



































































































































































(16) 



In the new basis, the relations 

T 23 = 0, T 24 = 0, T 25 = 0, T 26 = 0, T 27 = 0, T 28 = (17) 

are added to the ones from l[T5\) . Because the symmetric spin-tensor has the two 
significant eigenvalue, this reduces the dimension on 6 else. However, we need to 
remove the relation T 12 = from / TJ3]) . Thus, we obtain the Lie algebra whose the 
dimension is equal to 14-6+1=9. 

Example 3. The quaternion algebra analog. 

Table 3: The multiplication table of the quaternion algebra analog. 



* 


eo 


ei 


e 2 


e3 


e 4 


es 


ee 


e7 


eo 


eo 


ei 


e2 


e3 


e 4 


es 


e6 


e7 


ei 


ei 


-eo 


e3 


-e 2 












('2 


-e3 


-eo 


ei 










e.'i 


e.'j 


e 2 


-ei 


-eo 










e 4 


e 4 








-eo 








es 


es 










-eo 






ee 


e 6 












-eo 




e? 


e? 














-eo 
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Then in the new basis, the matrix of the symmetric spin-tensor 9 CD has the form 



/ o 5 


n 


n 


n 

yj 


n 

yj 


n 


n 


\ 





0.5 
















































































0.5 


























0.5 
































V o 




















0/ 



(18) 



In i/ie neu> fraszs, the relations 

T 53 = 0, T 54 = 0, T 56 = 0, T 57 = 0, T 58 = (19) 

are added to the ones from ( T731) . ( fi^) . Because the symmetric spin-tensor has the 
four significant eigenvalue, this reduces the dimension on 5 else. Thus, we obtain 
the Lie algebra whose the dimension is equal to 8-5=3. This means that the group 
Aut(k^) is isomorphic to 5*0(3, R). Of course, we need to append SO(4,M.) to obtain 
the all automorphism group. 

Example 4. The carcass for the octonion algebra. 



Table 4: The multiplication table of the octonion carcass. 



* 


eo 


ei 


e2 


e3 


e-i 


es 


e6 


e 7 


eo 


























ei 








e3 


-e 2 








-e 7 


ee 


(-2 





-e3 





ei 





e7 





-65 


f:'3 





e 2 


-ei 








-ee 


es 





e4 


























e 5 








-e 7 


ee 








-e3 


e 2 


ee 





e7 





-es 





e3 





-ei 


f:'7 





-ee 


es 








-e 2 


ei 






Then in the new basis, the matrix of the symmetric spin-tensor 9 has the form 



/1000000 0\ 

0000000 

0000000 

0000000 

0000000 

0000000 

0000000 
\0000000-l/ 



(20) 
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Example 5. The generation octonion algebra (for e±) . 

Table 5: The multiplication table of the generating octonion algebra. 



* 


eo 


ei 


e2 


e3 


e 4 


es 


e6 


e7 


eo 


eo 


ei 


e2 


e3 


e 4 


es 


ee 


e7 


ei 


ei 











es 


-e 4 










e 2 











ee 





-e 4 





e 3 


e 3 











e 7 








-e 4 


c-i 


e-i 


-es 


-ee 


-e 7 


-eo 


ei 




e3 


es 


es 


e 4 








-ei 











ee 


e6 





e 4 





-e 2 











(■7 


e7 








e 4 


-e3 












Then in the new basis, the matrix of the symmetric spin-tensor 9 has the form 

/10000000\ 
00000000 
00000000 

00000000 . 

00000000' 

00000000 

00000000 

yoooooooi/ 

Example 6. The algebra of the octonion type. 



Table 6: The octonion multiplication table (non-canonical). 



* 


eo 


ei 


e2 


e3 


e 4 


es 


ee 


e7 


eo 


eo 


ei 


e2 


e3 


e 4 


es 


ee 


e7 


ei 


ei 


-eo 


e3 


-e 2 


es 


-e 4 


-e 7 


ee 


e 2 


e-2 


-e3 


-eo 


ei 


ee 


e7 


es 


-e 4 


e3 


e3 


e2 


-ei 


-eo 


-ee 


-e 7 


e 4 


es 


e 4 


e 4 


-es 


-e 7 


e6 


-eo 


ei 


-e3 


e2 


es 


es 


e 4 


e6 


e7 


-ei 


-eo 


-e2 


-e3 


e6 


e6 


e7 


-es 


-e 4 


e2 


e3 


-eo 


-ei 


e7 


ei 


-ee 


e 4 


-es 


-e 2 


e3 


ei 


-eo 



Then in the new basis, the matrix of the symmetric spin-tensor 9 has the form 



( 1 


1 

















o\ 


1 


1 












































































































































Vo 




















°/ 



(22) 
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Algorithm 1. Thus, in order to compare the two algebras for n=8, it is necessary 



1. to lead the both algebras to the same algebra identity; 

2. to solve the Clifford equation, in order to find the connecting operators; 

3. to construct the controlling symmetric spin-tensor on the structural constants 
and the connecting operators for each algebra; 

4- to find the eigenvalues of the controlling spin-tensors. 

Then 

1. if the eigenvalues coincide then such the algebras are isomorphic; 

2. if the eigenvalues not coincide then such the algebras are not isomorphic. 

This is really so, because any real symmetric spin-tensor can be transformed to 
the diagonal form by orthogonal transformations. In the other hand, the orthogonal 
transformation of the spinor space generates the orthogonal transformation of the 
base space, and hence this leads to the isomorphic algebra. Thus, really in order to 
compare the two algebras for n=8, it is sufficient to compare the eigenvalues of the 
controlling spin-tensors 9 . 

Theorem 1. The classification of metric hypercomplex group alternative- elastic 
algebras for n=8 can be reduced to the classification based on the eigenvalues of 
the symmetric controlling spin-tensor. 

Thus, all is made necessary for a technical realization. 

Example 7. Technical realization is given in Appendix. 

1. This article contains the file "octonion.pas" (by the operator \ input {octonion. pas} ) 
being a programming unit adapted to the LaTex (LaTex version of this article 

is on arXiv) for the Delphi. At the same time, this file is Appendix to this 
article. You must create a project with this "unit octonion" and put on the form: 
Buttonl: TButton, ComboBoxl: TComboBox, StringGridl: TStringGrid (the 
lines 22-24). 

2. At the lines 100-119, the structural constants 7]ij k for R 8 (i,j, k, ... — 1,8) are 
initialized for Example Ui 

3. At the lines 122-141, the structural constants r]ij k for R 8 are initialized for 



Example [H 



4- At the lines 144-163, the structural constants rjij k 
Example [3J 



for 



are initialized for 



5. At the lines 166-185, the structural constants r]ij k 
Example [^} 



for 



R are initialized for 



6. At the lines 188-207, the structural constants r]ij h 
Example 



for 



R 8 are initialized for 
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7. At the lines 210-227, the connecting operators y/2r)i AB forR 8 (i, A, B = 1,8,) 
are constructed. 

8. At the lines 230-251, the transition to the new basis is constructed. 

9. At the lines 252-281, the symmetric spin-tensor 6 CD is constructed. 

10. At the lines 284-294, the symmetric spin-tensor is outputted. 

11. At the lines 295-324, ^e structural constants are constructed on the symmetric 
spin-tensor with the help of the reverse motion. 

12. At the lines 325-338, the symmetric spin-tensor is outputted into the file. 

13. System characteristics of the computer on which the program is tested: 

HP Pavilion dv7-6b50er i3-2330M/ 4096/ 500 /Radeon HD6770 2Gb/Wm7 HP64 

14- Run time <1 sec. 



8 



// 

2 {************************* 

3 { 

4 { Oct on ion Unit for Delphi 

5 { 

{ Copyright (c) 2 012 Konstantin Andreev All Rights Reserved 



Appendix. 



7 { THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, } 

8 { INCLUDING BUT NOT LIMITED TO THE IMPLIED MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 

9 { PURPOSE. KONSTANTIN ANDREEV CANNOT BE HELD RESPONSIBLE FOR ANY LOSSES, EITHER DIRECT OR 

10 { INDIRECT, OF ANY PARTY MAKING USE OF THIS SOFTWARE. IN MAKING USE OF THIS SOFTWARE, YOU 

11 { AGREE TO BE BOUND BY THE TERMS AND CONDITIONS FOUND IN THE ACCOMPANYING LICENSE. 

12 { 

13 {****************************^ 

14 unit octonion ; 
15 

16 interface 

17 uses 

18 Windows , 

19 StdCtrls 

20 type 

21 TForml = c 1 ass ( TForm ) 
Buttonl : TButton ; 
ComboBoxl : TComboBox ; 
StringGridl: TStringGrid; 

procedure ButtonlClick ( Sender : TObject ) ; 
procedure FormActivate ( Sender : TObject ) ; 
end ; 



Messages , SysUtils 
, Grids , IniFiles ; 



Classes , Graphics , Controls 



28 var 

29 Forml : TForml ; 

30 implementation 

31 {$R *.DFM} // 



procedure TForml . ButtonlClick ( Sender : 
type 



TObject ) ; 



34 


complex = record 


x , y 




r e a 




end 












35 


var 






















36 


et a 8 : 


array 


[1 


. . 8 


1 


■ 8 , 


1 


.8] 


of complex; 


/ / The connection 


operators 


37 




















// for n=8 r}i AB . 




38 


eta 8 : 


array 


[1 


. . 8 


1 


■ 8 , 


1 


.8] 


of complex; 


1 j The auxiliary 


variable . 


39 


et a 1 : 


array 


[1 


. . 8 


1 


. 8 , 


1 


. 8 


1..8] of complex; 


/ / The auxiliary 


variable . 


40 


cta2 : 


array 


[1 


. . 8 


1 


■ 8 , 


1 


.8] 


of complex; 


/ / The auxiliary 


variable . 


41 


S trans 8 : 


array 


[1 


. . 8 


1 


.8] 




of 


complex ; 


/ / The orthogonal 


transformation l[7j 


42 




















/ / the new b s a s i s 




43 


Theta : 


array 


[1 


. . 8 


1 


.8] 




of 


complex ; 


/ / The matrix of 


the quadratic form 


44 




















//II e AB ||=|| e AB || 




45 


eta : 


array 


[1 


. . 8 


1 


■ 8 , 


1 


.8] 


of complex; 


/ / The structural 


constants of 



4(1 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 

(11 
02 
03 
04 

or, 

00 
07 
OX 
09 
70 
71 
72 
73 
74 
75 
70 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 



eta_ 
m_l 
m_2 
m_24 

i . j , k , 1 , m, 
A,B,C,D 
IniFile 
array str 



array [ 

complex 

complex 

complex 

integer 

integer 

TIniFile 

string ; 



of complex; 



// Addition of complex numbers. 

function add(cll,cl2: complex ) : complex ; 

var cl3 : complex; 

begin 

cl3 .x: = cll . x+c 12.x; 

cl3.y: = cll. y+cl2 . y ; 

add ; = c 1 3 ; 
end ; 

//Multiplication of complex numbers, 
function mul(c21,c22: complex ) : complex; 
var cl3 : complex; 
begin 

t c22 . x-c21 . y* c22 . y ; 
t c22 . y+c21 . y* c22 . x ; 



cl3 . x: = c21 . 
cl3 . y: = c21 . 
mul : = c 1 3 ; 
end ; 

/ / Initialization 
procedure Init (\ 
begin 

c31.x:=0; c31.j 
end ; 



begin 

//Initialization of the 
for i : = 1 to 8 do 
for j : = 1 to 8 do 
for k: = l to 8 do 
begin 

Init _ ( eta_8 | i , j , k ] ) ; 
Init (eta[i,j,k]); 
end ; 

//Initialization of CD . 
for C: = l to 8 do 
for D: = l to 8 do 

Init _ ( Theta [C,D] ) ; 



a complex number. 
c31 : complex); 



connection operators 



//the algebra for n=8 77; j 
//The auxiliary variable . 
//The complex factor —1. 
//The complex factor ^. 
//The complex factor 
//Indices of an array element. 
//Indices of an array element . 
//The output file. 
//A line of the output file. 
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92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
140 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
1'h 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 



//Initialization of the base transformation, 
for C: = l to 8 do 
for D: = l to 8 do 

Init_ (S_trans_8[C,D] ) ; 
//Initialization of the structural constants of the algebra: 
Case ComboBoxl . 1 1 c m I n d ex of 



: begin 

1 / Octonoion 
eta [ 1 ,1 
eta [2,1 
e t a [ 3 ,1 
eta [4 ,1 
e t a [ 5 , 1 
e t a [ 6 , 1 
eta [ 7 , 1 
eta [8,1 

eta [1 ,5 
eta [2 ,5 
eta [3 ,5 
eta [4 ,5 
eta [5 ,5 
eta [6 ,5 
eta [7 ,5 
et a [ 8 , 5 
end ; 



1 : begin 



. X 


= 




. X 


= 




. X 


= 




. X 


= 




. X 


= 




. X 


= 




. X 


= 




. X 


= 




. X 


= 0; 


. X 


= + 


1 


. X 


= + 


1 


. X 


= + 


1 


. X 


= 0; 


. X 




1 


. X 




1 


. X 




1 



eta [ 1 ,2 ,2] 
eta [2 ,2 , 1 ] . 
et a [ 3 ; 
eta [4 , 
eta [5 . 
eta [6 . 
eta [7 . 



4]- 
,3]. 
,6]. 
,5]. 
.8], 



eta [8 ,2 , 7] . x 

eta [1 ,6 ,6] 
eta [2,6,5] 
eta [3,6,8] 
eta [4 ,6 ,7] 
eta [5,6,2] 
eta [6,6,1] 
eta [7,6,4] 
eta [8,6,3] 



eta[l ,3 ,3].x 
eta [2 ,3 , 4] . x 



e t a [ 3 
et a [ 4 
e t a [ 5 
e t a [ 6 
eta [7 
eta [8 



e t a [ 1 
eta [ 2 
e t a [ 3 
eta [4 
e t a [ 5 
e t a [ 6 
eta [ 7 
eta [8 



,4]. 
,3]. 
,2)- 
,!]■ 
,8]. 
,7]. 
,6]. 
,5]. 



. x 


= 


eta [ 1 ,7,7] 


X 


= 


e t a [ 1 


8 ,8] 


X 


= 


. X 


= -1 


eta [2 , 7 , 8] 


X 


= -1 


eta [2 


8 ,7] 


X 


=+1 


. X 


= + 1 


eta [3 , 7 , 5 ] 


X 


= -1 


e t a [ 3 


8,6] 


X 


= -1 


. X 


= -1 


eta [4,7,6] 


X 


=+1 


eta [4 


8,5] 


X 


= -1 


. X 


= + 1 


eta [5 , 7 , 3] 


X 


=+1 


e t a [ 5 


8 ,4] 


X 


= + 1 


. X 


= 


eta [6 ,7,4] 


X 


= -1 


e t a [ 6 


8,3] 


X 


=+1 


. X 


= + 1 


eta [ 7 , 7 , 1] 


X 


= 


eta [7 


8,2] 


X 


= -1 


. X 


= -1 


eta [8 , 7 , 2] 


X 


= + 1 


eta [8 


8,1] 


X 


= 



/ / The g e n e r 


a t i n g 


octonion algebra 






eta [ 1 


, 1 


.1] 


X 


= 


eta[l,2,2].x 




0; 


eta [2 


, 1 


,2] 


X 


= 


et a [ 2 , 2 , 1 ] . x 




0; 


e t a [ 3 


, 1 


,3] 


X 


= 


et a [ 3 , 2 , 4] . x 




-1 


eta [4 


, 1 


,4] 


X 


= 


et a [ 4 , 2 , 3 ] . x 




+ 1 


e t a [ 5 


, 1 


,5] 


X 


= 


et a [ 5 , 2 , 6 ] . x 




-1 


eta [6 


, 1 


>6] 


X 


= 


et a [ 6 , 2 , 5 ] . x 




+ 1 


eta [ 7 


, 1 


,7] 


X 


= 


eta [ 7 , 2 , 8] . x 




+ 1 


eta [8 


, 1 


,8] 


X 


= 


eta [8 ,2 , 7] . x 




-1 


e t a [ 1 


, 5 


,5] 


X 


= 0; eta [1 ,6,6]. 


x: 


= C 


eta [2 


, 5 


,6] 


X 


= + 


1; eta [2 ,6 , 5] . 


x: 




e t a [ 5 


■ 5 


,1] 


X 


= 0; eta [5,6,2]. 


x: 


= + 


c t a [ 6 


, 5 


>2] 


X 




1; eta [6 ,6 , 1] . 


x: 


= c 


end ; 
















2 : begin 
















/ / The q u a t e 


rnion 


algebra analog. 






eta [ 1 


, 1 


• i] 


X 


= 


eta[l,2,2].x 




0; 


eta [2 


, 1 


,2] 


X 


= 


et a [ 2 ,2 , 1 ] . x 




0; 


e t a [ 3 


, 1 


>3] 


X 


= 


et a [ 3 , 2 , 4] . x 




-1 


et a [ 4 


, 1 


,4] 


X 


= 


et a [ 4 , 2 , 3 ] . x 




+ 1 


e t a [ 5 


, 1 


>5] 


X 


= 








e t a [ 6 


, 1 


,6] 


X 


= 








eta [ 7 


, 1 


,7] 


X 


= 








eta [8 


, 1 


,8] 


X 


= 








e t a [ 1 


, 5 


>5] 


X 


= 0; eta [1 ,6 , 6] . 


x: 


= c 


e t a [ 5 


, 5 


>1] 


X 


= 0; 







eta [ 1 ,3 ,3].x 
eta [2 ,3 , 4] . x 
eta[3 ,3 ,l].x 
eta [4 ,3 , 2 ] . x 



et a [ 1 



7 , 7] . x:= 
7 ,8].x:=- 



cta [ 1 ,4 , 4] . 
eta [2,4,3]. 
eta [3 ,4,2]. 
eta [4 ,4 , 1 ] . 



0; eta [ 1 , 8 , 8] . 
-1; eta [2 , 8 , 7] . 



eta [7 , 7 , 1] . x:= 0; e t a [ 7 , 8 , 2 ] . x : 
eta [8 , 7 , 2] . x:= + l; e t a [ 8 , 8 , 1 ] . x : 



-- 



eta [ 1 ,3 ,3].x 
eta [2 ,3 , 4] . x 
eta[3 ,3 ,l].x 
eta [4 ,3 , 2 ] . x 



= 
= -1 



e t a [ 1 



, 4] . x: = 





,3] .x:= 


-1 


. 2] . x:= 


-t-1 


,l].x:= 






eta [6 , 6 , 1 ] . x:= 0; 



eta [ 1 , 7 , 7 ] . x: = 



eta [ 7 , 7 , 1 ] . x: = 



end ; 



3 : begin 

/ / The carcacss 
et a 
eta 
eta 
et a 
e t a 
eta 
eta 
eta 



eta 
eta 
eta 
end ; 



,8]. 



eta [8,8,l].x:= 



[1 


, 1 


!]■ 


1 2 


, 1 


2]. 


[3 


, 1 


31. 


[ 4 


, 1 


4]- 


1 5 


, 1 


5]. 


[6 


, 1 


6]. 


| 7 


, 1 


7]- 


[8 


, 1 


SI- 


[ 1 


,5 


SI- 


1 2 


,5 


6|. 


[3 


,5 


7|- 


1 4 


, 5 


Si- 


1 r ' 


, 5 


ll- 


[6 


,5 


2|- 


I 7 


,5 


3|- 


[8 


, 5 


4]- 



for the octonion 


alge 


bi 




















. X 


= 


et a [ 1 , 2 , 2 ] 


X 







et a [ 1 


,3 


3] 


X 


= 


e t a [ 1 


,4 ,4| 


X 


= 0; 


. X 


= 


et a [ 2 , 2 , 1 ] 


X 







eta [2 


,3 


>4] 


X 


=+1 


eta [ 2 


,4 ,3] 


X 


^-1 


. X 


= 


eta [3 ,2 ,4] 


X 




-1 


et a [ 3 


,3 


1] 


X 


= 


e t a [ 3 


,4 ,2] 


X 


= + 1 


. X 


= 


eta [4 ,2 , 3] 


X 


=- 


-1 


eta [4 


,3 


2] 


X 


= -1 


eta [4 


,4,1] 


X 


= 0; 


. X 


= 


eta [5 ,2 , 6 ] 


X 







et a [ 5 


,3 


7] 


X 


= 


e t a [ 5 


,4 ,8] 


X 


= 0; 


. X 


= 


eta [6 ,2 ,5] 


X 







et a [ 6 


,3 


.8] 


X 


= -1 


e t a [ 6 


,4,7] 


X 


= + 1 


. X 


= 


eta [7 ,2 ,8] 


X 


=- 


-1 


eta [7 


,3 


5] 


X 


= 


eta [7 


,4 ,6] 


X 


= -1 


. X 


= 


eta [8,2,7] 


X 




-1 


eta [8 


,3 


.6] 


X 


=+1 


eta [8 


,4 ,51 


X 


= 0; 



eta [1 , 6 , 6] 
eta [2,6,5] 
eta [3,6,8] 
eta [4 ,6 ,7] 
eta [5,6,2] 
eta [6,6,1] 
eta [7,6,4] 
eta [8,6,3] 



eta [ 1 ,7,7] 
eta [2 , 7 , 8] 
eta [3 , 7 , 5 I 
eta [4,7,6] 
eta [5 , 7 , 3] 
eta [6 ,7,4] 
eta [ 7 , 7 , 1] 
eta [8 , 7 , 2] 



. X 







e t a [ 1 


8 


8] 


X 


= 


. X 




-1 


eta [2 


8 


7] 


X 


= + 1 


. X 







e t a [ 3 


8 


6] 


X 


= -1 


. X 




+ 1 


eta [4 


8 


5 1 


X 


= 


. X 







e t a [ 5 


8 


4] 


X 


= 


. X 




-1 


e t a [ 6 


8 


3 1 


X 


= + 1 


. X 







eta [7 


8 


2] 


X 


= -1 


. X 




+1 


eta [8 


8 


11 


X 


= 



10 



188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
200 
207 
208 
209 
210 



4 : begin 

I / The o c t o n i 
eta [ 1 ,1 
eta [ 2 ,1 
e t a [ 3 , 1 
eta [4 ,1 
e t a [ 5 , 1 
e t a [ 6 , 1 
eta [ 7 , 1 
eta [8,1 



) i o n 




algebra an 


al o g . 




















,i] 


X 


= 


e t a [ 1 


,2,2] 


X 


= 


eta [ 1 ,3 ,3] 


X 


= 


e t a [ 1 


,4 ,4] 


X 


= 0; 


,2] 


X 


= 


eta [2 


,2,1] 


X 


= 


eta [2,3,4] 


X 


=+1 


eta [2 


,4 ,3] 


X 


= -1 


,3] 


X 


= 


et a [ 3 


,2,4] 


X 


= -1 


eta [3,3,1] 


X 


= 


e t a [ 3 


,4 ,2] 


X 


= + 1 


,4] 


X 


= 


c t a [ 4 


,2,3] 


X 


= + 1 


eta [4 ,3 ,2] 


X 


= -1 


eta [4 


,4,1] 


X 


= 0; 


,5] 


X 


= 


et a [ 5 


,2,6] 


X 


= -1 


eta [5 ,3 ,8] 


X 


= -1 


e t a [ 5 


,4,7] 


X 


= + 1 


,6] 


X 


= 


et a [ 6 


,2,5] 


X 


= + 1 


eta [6 ,3 ,7] 


X 


= + 1 


e t a [ 6 


,4 ,8] 


X 


= + 1 


,7] 


X 


= 


et a [ 7 


,2,8] 


X 


= + 1 


eta [7,3,6] 


X 


= -1 


eta [7 


,4 ,5] 


X 


= -1 


,8] 


X 


= 


eta [8 


,2,7] 


X 


= -1 


eta [8 ,3 ,5] 


X 


= + 1 


eta [8 


,4 ,6] 


X 


= -1 



c t a [ 1 ,5 
eta [2,5 
eta [3 ,5 
eta [4,5 
eta [5 ,5 
eta [6 ,5 
eta [7 ,6 
eta [8 ,5 
end ; 
end ; 



/ / Construction 



= 0; 


eta [1 , 6 , 6] 


X 




0; eta [ 1 , 7 , 7] 


X 


= 


eta [ 1 ,8 


, 8] . x 


= 0; 


= + i; 


eta [2,6,5] 


X 




-1; eta [2 , 7 , 8] 


X 


= -1 


eta [2 ,8 


,7].x 


= + 1 


= + i; 


eta [3 ,6 ,7] 


X 




-1; eta [3,8,5] 


X 


= -1 


eta [3 ,7 


, 6] . x 


= + 1 


= -i; 


eta [4,6,8] 


X 




-1; eta [4 , 7 , 5] 


X 


=+1 


eta [4 ,8 


, 6] . x 


= + 1 


= 0; 


eta [5,6,2] 


X 




+ 1; eta [5 ,7,4] 


X 


= -1 


eta [5 ,8 


, 3] . x 


= + 1 


= -i; 


eta [6 ,6 , 1 ] 


X 




0; eta [6 , 7 , 3] 


X 


= -1 


eta [6,8 


, 4] . x 


= -1 


= + i; 


eta [7 ,5 ,4] 


X 




+ 1; eta [7,7,1] 


X 


= 


eta [7 ,8 


, 2 ] . x 


= -1 


= -i; 


eta [8 ,6 ,4] 


X 




+ 1; eta [8 , 7 , 2] 


X 


= + 1 


eta [8 ,8 


,l].x 


= 0; 


f the 


connection 


o 




rators for n— 8 


( 


mult 


l p 1 i e d by 


V2 ) . 





211 


et a I 


[2 


1 ,2] 


X 




-1 


eta 


i [2 ,3 ,4] 


X 


= -1 


eta 


i [2 ,5 


,6] 


X 


= -1 


212 


eta £ 


[4 


1 ,2] 


y 




+-1 


eta 


i [4 ,3 ,4] 


y 


= -1 


eta 


i [4 ,5 


,6] 


y 


= -1 


213 


eta ; 


i[5 


1 ,4] 


y 




-1 


eta 


i [5 ,2 ,3] 


y 


= -1 


eta 


i [5 ,5 


,8] 


y 


= -1 


214 


eta 


[7 


1 ,4] 


X 




-1 


eta 


i [7 ,2 ,3] 


X 


= -1 


eta 


i [7 ,5 


8] 


X 


= -1 


215 


eta 


[6 


1 ,3] 


y 




-1 


eta 


i [6 ,2 ,4] 


y 


= -1 


eta 


i [6 ,5 


7] 


y 


= + 1 


216 


eta £ 


[8 


1 ,3] 


X 




+ 1 


eta 


! [8 ,2 ,4] 


X 


= -1 


eta 


i [8 ,5 


,7] 


X 


=+1 


217 


for 


: = 1 


to 


i do 























eta_8 [2,7 
eta_8 [4,7 
eta_8 [5 ,6 
eta_8 [7 ,6 
eta_8 [6,6 
eta_8 [8,6 



= -1 
= + 1 
= + 1 
= -1 
= + 1 
= -1 



218 
219 
220 
221 
222 
223 
224 
225 
220 
227 



for j: = 
for k : 
begin 



1 to 8 do 



eta_8 [ i , j , k ] 
eta_8 [ i , j , k j . y: 
end ; 

eta_8 [3 ,1 , 5] . y 
eta_8 [3 ,5 , 1 j . y 
eta_8 [1 ,1 , 5] . x 
eta_8 [1 ,5 ,1] .x 

228 //The constant factors 

229 m_2.x: = l/2 
230 
231 



do 












x : 


eta 


8[i ,k,j ] 


X 






y— - 


eta 


8[i ,k,j ] 


y 






-1; 


eta 


8 [3 ,2 ,6] 


y 


= -1; 


eta 


+ i; 


eta 


8 [3 ,6 ,2] 


y 


= + i; 


eta 


+ i; 


eta 


8 [1 ,2 ,6] 


X 


= + i; 


eta 


+ i; 


eta 


8 [1 ,6,2] 


X 


= + i; 


eta 



l/2(m_2), l/24(m_24), 



/ / Transition 


to the new 




S trans 


8[1 ,5] .x: = + 


1; 


S trans 


8[1 ,l].x:= + 


1; 


S trans 


8[5 ,l].y:=- 


1; 


S trans 


8[5 ,5] .y:= + 


1; 


f or i : =1 


to 8 do 




for A: = 


1 to 8 do 




for B:- 


= 1 to 8 do 





m_2.y:=0; m_24 . x : = 1 / 2 4 ; 

inot basis. 
S_trans_8 [2,6] 
S_trans_8 [2,2] 
S_trans_8 [6,2] 
S trans 8 [ 6 , 6 ] 



eta_8 [3 , 3 , 7] . y 
[3 ,7 ,3] .y 
[1 ,3 ,7] .x 
[1 ,7 ,3] .x 

l(m__l) 



= -1 

= + 1 
= +1 
= + 1 



eta_8 [3,4,8]. 
eta_8 [3 ,8 , 4] . 
8[1 ,4 ,8]. 
8 [1 ,8 ,4] . 



eta 
eta 



y 


= -1 


y 


= + 1 


X 


=+1 


X 


= + 1 



m_24.y:=0; m_l.x: = — 1; m_l . y : — 0; 



= + 1 
= + 1 
= -1 
= + 1 



232 
233 
234 
235 
230 
237 
238 
239 
240 
241 
242 
243 
244 
245 
240 
247 
248 
249 
250 
251 

252 //Construction of the controlling spin — tensor according 



S_trans_8 [3 , 7] 
S trans 8 [ 3 , 3 ] 
S trans 
S trans 



i[7 ,3] 
i[7 ,7[ 



= + i; 
= + i; 

= -1; 

= + 1: 



S trans 

S trans 

S trans 

S trans 



i[4 ,8] . 
i[4 ,4] . 
i[8 ,4] . 
i[8 ,8] . 



begin 

Init_ (eta_8_ [ i ,A,B] ) ; 
for C: = l to 8 do 

eta_8_ [ i , A, B] : = add ( eta_8_ 
end ; 

for i: = l to 8 do 
for A: = l to 8 do 
for B: = l to 8 do 
begin 

Init_ (cta_8 [ i ,A,B] ) ; 
for D: = l to 8 do 

eta_8[i , A , B] : = add ( e t a_ 8 [ i 
eta_8[i , A , B] : = mul ( e t a_ 8 [ i 
end ; 



[ i ,A,B] ,mul(eta_8 [i ,A,C] ,S_trans_8[B,C])); 



, A, B] , mul (cta_8_ [i ,D,B] ,S_trans_8[A,D])); 
,A,B] ,m_2) ; 



253 
254 
255 
256 
257 
258 
259 
260 
201 
262 
203 
264 
205 
266 
207 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 



for j: = l to 8 do 
for k: = l to 8 do 
for A: = l to 8 do 
for B: = l to 8 do 
begin 

Init_ ( ctal [ j , k , A , B ] ) ; 
for i: = l to 8 do 
etal [j ,k,A,B]: = add (etal [j ,k,A,B] , mul ( eta[i ,j ,k] ,eta_8[i ,A,B])): 
end ; 

for k: = l to 8 do 
for B: = l to 8 do 
for C: = l to 8 do 
begin 

Init_ ( cta2 [k ,B,C] ) ; 
for j : = 1 to 8 do 
for A: = l to 8 do 
cta2[k,B,C]: = add(cta2[k,B,C] , mul ( etal[j ,k,A,B] , eta_8 [ j , C, A] ) ) : 

end ; 

for C: = l to 8 do 
for D: = l to 8 do 
begin 

Init_ (Theta [B,D] ) ; 
for k: = l to 8 do 
for B: = l to 8 do 
Theta [C,D]: = add(Theta[C,D] , mul ( eta2 [k,B,C],eta_8[k,D,B])); 
Theta [ C , D] : = mul ( Theta [C,D] ,m_24) ; 
if ComboBoxl . 1 1 emlnd ex <>3 then 
if (C=D) then Thet a [ C , D ] . x : = Thet a [ C , D ] . x + 1 / 4 ; 

end ; 



H-CD 
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284 //Output of the G— matrix . 

285 for i : = 1 to 8 do 

286 begin 

287 StringGridl . Colls [0 , i]: = IntToStr( i ); 

288 StringGridl. Cells [i,0]: = IntToStr(i); 

289 end ; 

290 for i : = 1 to 8 do 

291 for j : = 1 to 8 do 

292 begin 

293 StringGridl . Cells [j , i] : = Float ToStr ( Thcta [ i , j ] . x ) : 

294 end ; 

295 //Reverse motion. 

296 for j : = 1 to 8 do 

297 for C: = l to 8 do 

298 for i: = l to 8 do 

299 for B: = l to 8 do 

300 begin 

301 Init_ ( ctal [ j ,C, i ,B] ) : 

302 for A: = l to 8 do 

303 etal[j,C,i,B]: = add (etal[j,C,i,B], mul(eta_8 [j ,C,A] ,eta_8[i ,A,B] ) ) ; 

304 end ; 

305 for k: = l to 8 do 

306 for B: = l to 8 do 

307 for C: = l to 8 do 

308 begin 

309 Init_ ( cta2 [k ,B,C] ) ; 

310 for D: = l to 8 do 

311 eta2[k,B,C]: = add(eta2[k,B,C], mul ( eta_8 [k ,D,B] , Thcta [C,D] ) ) ; 

312 end ; 
313 

314 

315 for i : = 1 to 8 do 

316 for j: = l to 8 do 

317 for k: = l to 8 do 

318 begin 

319 Init _ (eta_ [ i , j , k ] ) ; 

320 for B: = l to 8 do 

321 for C: = l to 8 do 

322 eta_[i ,j , k] : = add ( eta_ [ j , j ,k] , mul( eta2[k,B,C] , etal [j ,C,i ,B])); 

323 eta_ [ i , j , k] : =mul (m_2, eta_ [ i , j , k ] ) ; 

324 end ; 

325 /Output of the table into the file. 

326 IniFile:=TIniFile . Create (GetCurrentDir+'\IniFile . ini ' ) ; 

327 array str:= ' ' ; 

328 for Ar=l to 8 do 

329 begin 

330 array str : = ' ' ; 

331 for Br=l to 8 do 

332 begin 

333 array _st r : = array st r+Format (' 956.3 f ' ,[Theta[A,B].x]); 

334 if B<8 then 

335 array str: = array str+'^& w ' ; 

336 end ; 

337 Ini File . WriteString ( 'Variants ' , IntTostr (A),array_str+'\\') 

338 end ; 

339 end ; 
340 

341 procedure TForml . For m Act i vat e ( S e nder : TObject ) ; 

342 begin 

343 Initialization of ComboBoxl . 

344 ComboBoxl . Items . Add ( 'Octonoion ' ); 

345 ComboBoxl . Items . Add ( 'Generating w octonion^algcbra ' ); 

346 ComboBoxl . Items . Add ( 'Quaternion _ algebra^ analog ' ) ; 

347 ComboBoxl . Items . Add ( ' Carcacss w for w the w octonion w algebra ' ); 

348 ComboBoxl . Items . Add ( 'Octonoion w algebra w analog ' ); 

349 ComboBoxl . Itemlndex : =0; 

350 S t ringGrid 1 . RowCount : = 9 ; 

351 StringGridl . ColCount : =9; 

352 StringGridl . Align : = alBottom ; 

353 StringGridl . Height :=250; 

354 StringGridl . D e f aul t C ol W i d t h : = 3 ; 

355 end ; 
356 

357 end . 

358 ' / 
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